<<<<<<< .mine
unit UDatamodule;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TDataModule1 = class(TDataModule)
    TEmpleados: TTable;
    DSEmpleados: TDataSource;
    TPuesto: TTable;
    DSPuesto: TDataSource;
    TServicio: TTable;
    TTurno: TTable;
    DServicio: TDataSource;
    DSTurno: TDataSource;
    THorario: TTable;
    DSHorario: TDataSource;
    TSuplencias: TTable;
    DSSuplencias: TDataSource;
    TSuplenciasIDSUPLENCIA: TAutoIncField;
    TSuplenciasNoEMPSUPLENTE: TStringField;
    TSuplenciasRFCEMPSUPLENTE: TStringField;
    TSuplenciasINICIOPERIODO: TDateField;
    TSuplenciasFINALPERIODO: TDateField;
    TSuplenciasHORASDIASSUP: TSmallintField;
    TSuplenciasNoEMPSUPLIDO: TStringField;
    TSuplenciasNoPLAZAEMPSUP: TStringField;
    TSuplenciasIDMOTIVO: TStringField;
    TSuplenciasIDMOVIMIENTO: TStringField;
    TSuplenciasIDPUESTO: TStringField;
    TSuplenciasIDTURNO: TStringField;
    DSMovimientos: TDataSource;
    DSMotivos: TDataSource;
    TMovimientos: TTable;
    TMotivos: TTable;
    DSCategoria: TDataSource;
    TCategoria: TTable;
    TSuplenciasNOMBREDEEMPSUPLENTE: TStringField;
    TSuplenciasSALARIODIARIO: TCurrencyField;
    TSubnivel: TTable;
    DSSubnivel: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
     TEmpleados.Open;
end;

end.
=======
unit UDatamodule;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TDataModule1 = class(TDataModule)
    TEmpleados: TTable;
    DSEmpleados: TDataSource;
    TPuesto: TTable;
    DSPuesto: TDataSource;
    TServicio: TTable;
    TTurno: TTable;
    DServicio: TDataSource;
    DSTurno: TDataSource;
    THorario: TTable;
    DSHorario: TDataSource;
    TSuplencias: TTable;
    DSSuplencias: TDataSource;
    TSuplenciasIDSUPLENCIA: TAutoIncField;
    TSuplenciasNoEMPSUPLENTE: TStringField;
    TSuplenciasRFCEMPSUPLENTE: TStringField;
    TSuplenciasINICIOPERIODO: TDateField;
    TSuplenciasFINALPERIODO: TDateField;
    TSuplenciasHORASDIASSUP: TSmallintField;
    TSuplenciasNoEMPSUPLIDO: TStringField;
    TSuplenciasNoPLAZAEMPSUP: TStringField;
    TSuplenciasIDMOTIVO: TStringField;
    TSuplenciasIDMOVIMIENTO: TStringField;
    TSuplenciasIDPUESTO: TStringField;
    TSuplenciasIDTURNO: TStringField;
    DSMovimientos: TDataSource;
    DSMotivos: TDataSource;
    TMovimientos: TTable;
    TMotivos: TTable;
    DSCategoria: TDataSource;
    TCategoria: TTable;
    TSuplenciasNOMBREDEEMPSUPLENTE: TStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
     TEmpleados.Open;
end;

end.
>>>>>>> .r29
